home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / thor / fse / cool.fse < prev    next >
Text File  |  1996-11-10  |  635b  |  41 lines

  1. /* Coolify (using "TEXT COOLER v1.0 by 
  2. ** DDT of the HALF-BRAINS TEAM") text
  3. ** block - by Troels Walsted Hansen
  4. */
  5.  
  6. options results
  7.  
  8. YPOS
  9. currline = result
  10. XPOS
  11. currcolumn = result
  12. MSGLENGTH
  13. lastline = result
  14.  
  15. call open(tfh, "t:UncoolTempFile", W)
  16.  
  17. do i=currline to lastline
  18.     SETPOS 1 i
  19.     GETLINE
  20.     line = result
  21.  
  22.     if(line ~= "") then do
  23.         DELETELINES
  24.         i = i-1
  25.     end
  26.     else break
  27.  
  28.     call writeln(tfh, line)
  29. end
  30.  
  31. call close(tfh)
  32.  
  33. address command "Cool >nil: t:UncoolTempFile t:CoolTempFile"
  34. call delete("t:UncoolTempFile")
  35.  
  36. SETPOS currcolumn currline
  37. INCLUDEFILE "t:CoolTempFile"
  38. call delete("t:CoolTempFile")
  39.  
  40. SETPOS currcolumn currline
  41.